home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / Bulging Squares (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  468b  |  11 lines
  1. 5 print"[147]please stand by.copying character set."
  2. 10 poke52,48:poke56,48:clr:poke56334,peek(56334)and254:poke1,peek(1)and251
  3. 20 fori=0to2040:pokei+12288,peek(i+53248):next:poke1,peek(1)or4
  4. 30 poke56334,peek(56334)or1:dima(5,7):fory=0to3:forx=0to7:reada(y,x):next:next
  5. 40 b=2:fory=4to5:forx=0to7:a(y,x)=a(b,x):next:b=b-1:next
  6. 50 poke53272,(peek(53272)and240)or12
  7. 60 fory=0to5:forx=0to7:poke12544+x,a(y,x):ifpeek(203)=64thennext:next:goto60
  8. 70 forx=0to7:poke12544+x,0:next:end
  9. 80 data 255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0,0,60,36,36,60
  10. 90 data 0,0,0,0,0,24,24,0,0,0,0
  11.